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MODULE SWITVL ( he UAGE (8L1$$32), 
¥ ENT voe= 880 ; 
= 
BEGIN 


' 
Ree eRe RR AA ARERR AAA RARE AAA AA RAAT AA AAA AAA 


te COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
:* ALL RIGHTS RESERVED. 


He ha he * ss ey anee UNDER A LICENSE AND MAY BE USED AND copiee 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tit AND WITH THE 
Hed INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT 
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i: onmpokat ine NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: F11ACP Structure Level 2 

i ABSTRACT: 


This module contains routines that switch file ACP context from 
one volume to another. 


ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 8-Nov-1978 13:35 
i MODIFIED BY: 


v03-004 cestoes Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage end BIND_COMMON macro. 
v03-003 £DS0005 Christian D. Saether 15-Oct-1983 


Remove call to flush_lock _basis. This is called 
from allocation_unlotk now. 


ine 


REISWITVL. B32; 479 ma 


N <2 
19-8 Sep p- 1386 18:06 VAX-11 Bliss-32 V4.0-742 Page 2) 
Sep-1984 12:30:49 DISKSVMSMASTER:CF11X.SRCISWITVL.832;1 (1), 

3 8 1! 

; 9 $5 1! v03-002 CDS0002 Christian D. Saether 14-Sep- we? 

; $0 of ! Release and reacquire correct volume lock, if h held 

pee 6¢ 1 i v03-001 ¢Ds0001 Christian D. Saether 27-Au ug-19 

3 o7 ber : Remove reference to GET_CCB and use 10_CCB cell ceed. 

: 65 65 1! B0103 AcGo082 Andrew C. Goldstein 13-Nov-1979 23:56 

3 ? 98 ! } Remove FLUSH_BUFFERS call due to write-back cacheing 

i. .¢ 068 1 i B0102 AcGo0s2 Andrew C. Goldstein, | 5-Nov-1979 14:52 

3 $% 89? ! } fant for write-back cache ng 

es 071 1 i B0101 Acco Andrew C Goldstein, 7-May-1979 15:15 

oh 0 1 i Range check ee before indexing into RVT; 

§ 7 075 1! allow RVN 1 on single volumes 

074 1! 

; 0075 1 Ine 

BEY 

: 78 0078 1 LIBRARY 'SYS$LIBRARY YL 1BL32"; 

; 79 0079 1 REQUIRE 'SRCS$:FCPDEF.B32'; 

: 80 1070 1 

: BD 1972 

: 83 1998 1 SW1TCH_VOLUME : LLNORM NOVALUE, ! switch context to specified RVN 

; 84 1074 1 SWITCH-CHANNEL : L_NORM NOVALUE; ! switch channel assignments 


| 
| 
| 
FORWARD ROUTINE | 
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18-3 “1984 01:18:04 — VAX=11_BLiss-32_¥4.0-742 Page 3 
VeSep-19b6 12:50:49 DISKSVMSMASTERSCFTIX.SRCISWITVL.B32:1°° (23. 


2 
s 


3 } y } GLOBAL ROUTINE SWITCH VOLUME (NEW_RVN) : L_NORM NOVALUE = 

: ei 
i 30 23 |_| FUNCTIONAL DESCRIPTION: 

; $2 1081 1: This routine switches the ACP context to pe specified RVN. It 

; + | 4 assigns the current channel to the new unit. | 
; 95 1 1} | 
; 4 1085 1 ! CALLING SEQUENCE: 

. 2 : : } SWITCH VOLUME (ARG1) 
; 39 1 1 | INPUT PARAMETERS: | 
3 191 : 3 ! ARG1: relative volume number to switch to 

; 4 ¢ 109) | i IMPLICIT INPUTS: | 
3; 10 94 1! CURRENT_UCB: UCB address of current volume 

3 133 9 ¢ : } CURRENT_VCB: VCB address of current volume 

; 106 1095 1 | OUTPUT PARAMETERS: | 
: 108 1097 1 i ne 

: 199 1098 1 | IMPLICIT OUTPUTS: 

fH 19001 | soe. | 
; 118 1101 1 ! ROUTINE VALUE: | 
: WN 108 1 i _— | 
: 115 1104 1 | SIDE EFFECTS: | 
: 116 1105 1! context switched to new volume | 
; #117 1198 _? 

; 118 110 1 !-- 
3; 119 1108 1 

; 120 1109 BEGIN 

. SRF 1110 

8 ' ¢ aay) BIND_COMMON; 

> 126 1148 EXTERNAL ROUTINE | 
3 Yes 1114 ALLOCATION_LOCK : L_NORM NOVALUE ! acquire volume lock for current volume 
3 : $ 13N2 ALLOCATION_UNLOCK : L_NORM; ' release current volume lock. 
: 128 We LOCAL 

: 129 1118 VOLOCK, ' remember whether volume lock held. 

.2°% 111 " ' filtered RVN desired 

; «131 1120 RVT : REF BBLOCK, ' address of relative volume table 

Pk ¢ 1121 ucB : REF BBLOCK; !' address of new UC 

2 1? 

: 155 1104 ! First check if a volume switch is necessary. Extract the true RVN part 

. 3 1125 : hg not extended file ID if present), check for zero and compare it 

. y 11 $ ' against the current RVN. 

nae 

: 140 11 $ RVN = .NEW er Ort 

3: «(161 11350 If . CURRENT_VCB yt FA bate 

: 142 1131 2 THEN RVN = TNEW_RVN<O78>; 


4 10 
16-Se 
14-Se 


ee 
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1984 01:18:04 VAX=11 Bliss-32 V4.0-742 P & 
Laat 93:48:25 DISKSVMSMASTER:CF1iX.SRCJSWITVL.B32;1 > (2) 


wr 


F_.RVN EQL 0 OR .RVN EQL .CURRENT_RVN 
HEN RETURN; 


! Get the RVT and from it the UCB address we are switching to. Nonexistence 
} of either is an error. 


“ww 


vce 
IF_.RVT EQL .CORRENT_UC 
THEN 


BEGIN 
IF _ .RVN EQL 1 
THEN RETURN 

ity ERR_EXIT (SS$_NOTVOLSET); 


| 
i 
RYT = CURRENT VCBLVCBSL_RVIJ; | 
| 


DWONOVEF WIN “"OO@Oneurtlw 


IF .RVN GTRU_.RVTCRVTSB_NVOLS) 
THEN ERR_EXIT (SS$_DEVNOTMOUNT) ; 


UCB = .VECTOR CRVICRVTSL_UCBLSTI, .RVN=12; 

IF .UCB EQL 0 

THEN 1 

ELSE NOT .BBLOCK CUCBLUCBSL_DEVCHAR], DEVSV_MNT] 
THEN ERR_EXIT (SS$_DEVNOTMOUNT); 


IF .UCBCUCBSB_ TYPE) NEQ DYNSC_UCB 
THEN BUG_CHECR (NOTUCBRVT, FATAL, ‘Not UCB pointer in RVT'); 


Unlock current volume lock, if held, and remember whether there was one. 


of © al * al * ah wal eal eal eal eal al al al altel oe oP oe oF oF oF oF oF oF ot 


VOLOCK = 0; 
IF .LB_LOCKID (0) NEQ 0 
THEN 


POPPIN 
BILSARONTASSSLFAFLERLS SELSSEE. 


BEGIN 
ALLOCATION_UNLOCK (); 
VOLOCK = 13 


wn— 


“ 


Finally shuffle the channels and pointers about. 


SN NNN NN NOAA OOO 


oOnouw SES SANS RANTS SS SERS SRST S SSS SSS ESS 


SWITCH_CHANNEL (.UCB); 
' If we had a volume lock before, reacquire it for the volume we 
ust switched to. 
IF .VOLOCK 
THEN 
ALLOCATION_LOCK (); 
END; ! end of routine SWI TCH_VOLUME 
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Su 16-Sep-1984 01:18:04  VAX"11 BLiss-32_v4.0-7462 
y04~000 en eeen I FRe Pb: 1b 8s Pea ehle teas hte cneaswrtve.esesn™ «2h 


TITLE §SWITV 
“IDENT \v04~000\ 

-EXTRN ALLOCATION_LOCK 
“EXTRN ALLOCATION UNLOCK 


-EXTRN BUGS_NOTUCBRVT | : 
-PSECT SCODES$,NOWRT,2 ; 
0C0C 000 .ENTRY SWITCH_VOLUME, Save R2,R3 7 1075. : 
51 ‘+ af itd MOVZWL NEW_RVA : 1129, ; 
50 8 AA 00 00006 OVL  -102(BASE), RO + 1130 ; 
04 0B AO 05 FI 000A C #5, 11(RO). 1$ : : 
51 04 AC 9A 0000F MOVZBL NEW_RVN, RVN + 1131 ; 
1 0 0013 1$: TSTL RVN 3 1133) 3 
F 13 0001 BEQL «6s 7$ : : 
AO AA 1 07 9001 CMPL = RVN, -96(BASE) : ; 
59 13 00018 BEQL 86 7$ : ; 
50 98 AA 00 00010 MOVL  =104(BASE), RO + 1140 ; 
50 20 Ad D0 00021 MOVL  32(RO), RV : | ; 
94 AA 50 01 00025 CMPL RVI, -108(BASE) + 1141 : 
A 12 00029 BNEO $ : ; 
01 1 01 00028 CMPL =e RVN, #1 + 1164 ; 
46 13 900 E BEQL : ; 
0998 8F BF 00030 CHMU #2456 : 1146) ; 
04 00034 RET : : 
51 0B AO 08 00 ED 00035 2$ CMPZ7V #0, #8, 11(RVT), RVN + 1149) ; 
OC 1F 00038 BLSSU : ; 
52 40 A041 00 00030 MOVL 64(RVT)CRVN], UCB > 1152 : 
05 13 00042 BEQL : 1154 : 
05 3A A 03 £0 00044 BBS #3, S8(UCB), 4$ : 1156 : 
007¢ «BF COB 90049 3$ CHMU = #104 : 1158 ; 
04 004D RET : ; 
10 OA A2 91 OO04E 4$ CMPB  «-«+10(UCB), #16 + 1160 F 
04 13 0005 BEQL =sOSS : 
FEFF 00054 BUGW : 1161 
9000s 00056 .WORD  <BUG$_NOTUCBRVT!4> : 
53 D4 00058 5$ ELRL VOL OC + 1166 
6C AA D3 005A TSTL 108(BASE) : 1168 
08 13 0005D BEQL : 
00006 CF 00 FB 005F CALLS #0, ALLOCATION_UNLOCK : 1171 
53 o4 D 0064 MOVL #1. VOLOCK : 1178 
2 DD 00067 6$ PUSHL UC : 117 
0000v CF 01 FB 0069 CALLS #1, SWITCH_CHANNEL : 
05 3 £9 0006E BLBC VOLOCK, > 1184 
00006 CF 00 FB 90071 CALLS #0, ALLOCATION_LOCK > 1186 
04 00076 7$: RET : 1188 | 


; Routine Size: 119 bytes, Routine Base: S$CODE$ + 0000 


10 
Swit ihese -1984 01:18:04 VAX-11 Bliss-32 V4.0-742 Page 6 
y04-000 en eee= ake 854889 bt ScbumebASteRc ch Tig. cheaswitve.e32:0°% (36 
; 1 1193 ! GLOBAL ROUTINE SWITCH_CHANNEL (UCB) : L_NCRM NOVALUE = 
: $08 HRT | tse 
: 205 1138 | FUNCTIONAL DESCRIPTION: 
: 1195 1 This routine reassigns the ACP'’s channels to the specified UCB 
3 1139 ft and fixes up the associated pointers. It must be called in 
3 1197 1! kernel mode. 
aes Be 
: 13 1 90 1 | CALLING SEQUENCE: 
: \3 91 : SWITCH_CHANNEL (ARG1) 
: 215 1 88 1 | INPUT PARAMETERS: 
: 1 : Be : ARG1: UCB address of new device 
; 18 06 { IMPLICIT INPUTS: 
: 20 1208 1! IO_CHANNEL: channel number of primary channel 
; g1 1209 1! 10-CCB: CCB of 10_CHANNEL 
: ¢ ; i? : } CURRENT_UCB: addréss of current UCB 
; 36 1 1 1 | OUTPUT PARAMETERS: 
3 5 ; i : } NONE 
; 3 1215 1! IMPLICIT OUTPUTS: 
3 8 1216 1! CURRENT_UCB: contains address of new UCB 
; 9 lei7 1! CURRENT_VCB: address of new VCB 
3 : isig : CURRENT_RVN: RVN of new volume 
; : 1220 1 | ROUTINE VALUE: 
3 \sgh 1 1 
; J 7 12 § 1 | SIDE EFFECTS: 
3 12246 1! channels reassigned 
3 HH 1225 1! 
3 8 1 $ 1 i-- 
Z 39 1 1 
; 240 1228 2 BEGIN 
3 41 1229 
3; 26 1230 2 MAP 
; vt : 1 uCcB : REF BBLOCK; ! UCB address arg 
: 265 1 2 BIND_COMMON; 
3 RR 
+ 2468 1236 2 1 Stuff the desired UCB address into 10_CHANNEL's CCB. 
: 249 1 ! Fix up other global pointers. 
Bee Be 
; 3 40 10_CCB CCCBSL_UCB) = .UCB; 
> 254 1 4g CURRENT_UCB = .UCB; 
: 35 43 CURRENT-VCB = .ucBtUCBSL_vCB); 
; 35 1245 2 IF .CURRENT_VCB EQL 0 


Noe 


cle 
16 =S 


p-1984 VAX-11 Bliss-32 V4.0-74 
v04 12- 2308-1382 t 9: $39 DISKSVMSMASTER:CF11X.SR 
: 124 THEN BUG_CHECK (NOTUCBRVT, FATAL ad uce ointer in RVT'); 

: 1 23 F CURRENT VCBLVCB$B8_TYPE] NEQ bY witty ° 
; $0 re THEN BUG_CHECK (NOT VEBUCB. FATAL, "Bsa v8 pointer in UCB"); 
3 6 30 CURRENT_RVN = .CURRENT_VCBLVCBSW_RVNI; 
: 264 1583 END; ! end of routine SWITCH_CHANNEL 
.EXTRN BUGS$_NOTVCBUCB 
0000 000 .ENTRY SWITCH_CHANNEL, Save nothing 
FF74 DA 046 AC 00 0000 MOVL UCB. @-140(BA se) 
94 AA 04 AC D0 0000 MOVL ; SOBCBASED 
50 04 AC DO 00000 MOVL UCB, 
98 AA 4 Ao p09 0011 MOVL SP RO) -104 (BASE) 
04 1 9016 BNEQ 1$ 
rere 001 BUGW 
0000* OO01A .WORD <BUGS$ NOTUCBRYT !4> 
50 98 AA DO OOOIC 1$: MOVL -104 (BASE 
11 0A ad 91 00020 CMPB 10(RO), Bie F 
04 13 00024 BEQL 2s 
FEFF 00026 BUGW 
0000* 00028 .WORD <BUG$_NOTVCBUCB!4> 
50 98 AA b0 0002A 2$: MOVL -104(BA 
AO AA 0€ ad 3C 000 ; MOVZ2WL 14(RO), -96(BASE) 
04 000 ET 
; Routine Size: 52 bytes, Routine Base: S$CODE$S + 0077 
3 265 1255 
: 266 1254 END 
; 267 1255 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 171 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eeeeeeos Sy mbols -------- Pages Processing 
3 File Total i heded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 32 0 1000 00:02.0 


42 
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JSWITVL.832; ," 


i$Beoctge 011806 yaaedt etisees2 ye. 0074 


; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SWITVL/OBJ=OBJ$:SWITVL MSRC$:SW1ITVL/UPDATE=(ENHS: SWITVL) 
ee: + 0 data bytes 


Lines/CPU Min 
; Lexenes/CPU-Nin: 6 


; Eooetlarion. Complete 


3 


H hey 171 
: py Time: is 
: pages 


ACISWITVL. B32; 39 
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